home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / compress menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  43 lines
  1. 10 poke53280,.:poke53281,.
  2. 15 gosub 61000
  3. 20 print"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  4. 30 fora=1to23:print"[221]"spc(38)"[221]";:next
  5. 40 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  6. 50 fora=217to242:pokea,peek(a)or128:next
  7. 60 print"     compressor/decompressor menu"
  8. 70 print"     c[154]ompress a picture"
  9. 80 print"     d[154]ecompress a picture"
  10. 90 print"     r[154]elocate one of the routines"
  11. 95 print"     q[154]uit"
  12. 100 print"     press c[154], d[154], r[154], or q[154]."
  13. 110 a=peek(203):ifa<>20anda<>18anda<>17anda<>62then110
  14. 120 ifa=62thengosub60000:goto100
  15. 130 ifa=20thenf$="compressor"
  16. 140 ifa=18thenf$="decompressor"
  17. 150 ifa=17thenf$="relocater"
  18. 200 ta=20-((len(f$)+11)/2)
  19. 210 print"[147]"tab(ta)"loading "f$"..."
  20. 220 print"[144]load"chr$(34)f$chr$(34)",8"
  21. 230 poke198,.:print"run":poke631,13:poke632,13:poke198,2:end
  22. 60000 print"[145] [154]are you sure you want to quit? (y[154]/n[154])"
  23. 60010 a=peek(203):ifa<>25anda<>39then60010
  24. 60020 ifa=39thenprint"[145]                                      [145]":return
  25. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  26. 60040 ifer<>63thenpoke198,.:print"[147]":end
  27. 60050 load"hello connect",8
  28. 61000 printchr$(142)"[147]"
  29. 61001 a$="        - l o a d s t a r -":gosub 62000
  30. 61002 print"[152]":a$="             presents":gosub 62000
  31. 61005 forx=1to500:next
  32. 61010 print"        [176][192][192][192][192][192][174]
  33. 61015 [153]"        (NULL)andandandandandwait(NULL)  "[199](34)"c-64 compressor"[199](34)
  34. 61020 [153]"        (NULL)  (NULL). (NULL)
  35. 61025 print"        [221]  [221]  [221]    [155]by scott m. petty
  36. 61030 [153]"        /tantantantantanexp
  37. 61035 forx=1to2000:next:return
  38. 61999 end
  39. 62000 fortb=0tolen(a$)
  40. 62005 printright$(a$,tb);"[145]"
  41. 62010 next
  42. 62015 return
  43.